home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc1 / say2raw.lha / strip0.rexx < prev   
OS/2 REXX Batch file  |  1996-04-12  |  293b  |  11 lines
  1. /* strip zero bytes */
  2. /* © by Stefan Haubenthal 1996 */
  3. name="Say.RAW"
  4. call open(in,name)
  5. buffer1=strip(readch(in,50000),L,"00"x)
  6. buffer2=strip(readch(in,50000),T,"00"x)
  7. if buffer2="" then buffer1=strip(buffer1,T,"00"x)
  8. call close(in)
  9. call open(out,name,W)
  10. call writech(out,buffer1||buffer2)
  11.